Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A617A.CMD < prev next >

Wrap

Text File | 1987-01-14 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 617 │" locate 0,8 message s8 locate 0,17 message "│ Boston, MA │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Channel One ............ 354-8873 V- PC2 Tech Support ....... 769-3779 ║" message "║ B- The Toolbox ............ 364-2474 W- Cullinet Software ...... 769-6761 ║" message "║ C- New World Magic ........ 595-5626 X- ........................ ...-.... ║" message "║ D- Boston Computer Society 237-3750 Y- Bytenet Listing ........ 861-9774 ║" message "║ E- Softline ............... 245-4909 Z- Term Exec Online News .. 863-0282 ║" message "║ F- MIT Livewire ........... 258-7784 0- 121 Info Jr ............ 893-5772 ║" message "║ G- Wonderland BBS ......... 665-3796 1- Computer Bargain Guide . 899-0060 ║" message "║ H- MicroCom's MNP ......... 769-9358 2- Northeastern Exchange .. 965-3121 ║" message "║ I- BCS Telecom ............ 786-9788 3- ........................ ...-.... ║" message "║ J- Alpha Software Corp .... 229-2915 4- ........................ ...-.... ║" message "║ K- HBBS ................... 237-1511 5- ........................ ...-.... ║" message "║ L- 122 BCS net Host ....... 237-3750 6- ........................ ...-.... ║" message "║ M- The Info Directory ..... 247-3048 7- ........................ ...-.... ║" message "║ N- Fido 318 PC Week ....... 449-4727 8- ........................ ...-.... ║" message "║ O- BCS Telecom BBS ........ 472-1676 9- ........................ ...-.... ║" message "║ P- Yellow Data ............ 489-4930 @- ........................ ...-.... ║" message "║ Q- Swampland Nite Lite .... 595-5036 #- ........................ ...-.... ║" message "║ R- NCCBBS II .............. 675-5979 $- ........................ ...-.... ║" message "║ S- Net Works Pirate Harbor 720-3600 %- ........................ ...-.... ║" message "║ T- Fido #202 -- Blue Line . 721-1688 &- ........................ ...-.... ║" message "║ U- 315 DD Network ......... 731-2662 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "354-8873" assign s6 "Channel One Brian Miller" gosub dial else endif find s0 "B" if found assign s8 "364-2474" assign s6 "The Toolbox Charlie Kron" gosub dial else endif find s0 "C" if found assign s8 "595-5626" assign s6 "New World Magic Hal Duprie" gosub dial else endif find s0 "D" if found assign s8 "237-3750" assign s6 "Boston Computer Society " gosub dial else endif find s0 "E" if found assign s8 "245-4909" assign s6 "Softline " gosub dial else endif find s0 "F" if found assign s8 "258-7784" assign s6 "MIT Livewire " gosub dial else endif find s0 "G" if found assign s8 "665-3796" assign s6 "Wonderland BBS " gosub dial else endif find s0 "H" if found assign s8 "769-9358" assign s6 "MicroCom's MNP " gosub dial else endif find s0 "I" if found assign s8 "786-9788" assign s6 "BCS Telecom " gosub dial else endif find s0 "J" if found assign s8 "229-2915" assign s6 "Alpha Software Corporation " gosub dial else endif find s0 "K" if found assign s8 "237-1511" assign s6 "HBBS " gosub dial else endif find s0 "L" if found assign s8 "237-3750" assign s6 "122 BCS Net Host " gosub dial else endif find s0 "M" if found assign s8 "247-3048" assign s6 "The Info Directory " gosub dial else endif find s0 "N" if found assign s8 "449-4727" assign s6 "Fido 318 PC Week " gosub dial else endif find s0 "O" if found assign s8 "472-1676" assign s6 "BCS Telecom BBS " gosub dial else endif find s0 "P" if found assign s8 "489-4930" assign s6 "Yellow Data " gosub dial else endif find s0 "Q" if found assign s8 "595-5036" assign s6 "Swampland Nite Lite " gosub dial else endif find s0 "R" if found assign s8 "675-5979" assign s6 "NCCBBS II " gosub dial else endif find s0 "S" if found assign s8 "720-3600" assign s6 "Net Works Pirate Harbor " gosub dial else endif find s0 "T" if found assign s8 "721-1688" assign s6 "Fido #202 -- Blue Line " gosub dial else endif find s0 "U" if found assign s8 "731-2662" assign s6 "315 DD Network " gosub dial else endif find s0 "V" if found assign s8 "769-3779" assign s6 "PC2 Tech Support " gosub dial else endif find s0 "W" if found assign s8 "769-6761" assign s6 "Cullinet Software " gosub dial else endif find s0 "X" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "Y" if found assign s8 "861-9774" assign s6 "Bytenet Listing " gosub dial else endif find s0 "Z" if found assign s8 "863-0282" assign s6 "Term Exec Online News " gosub dial else endif find s0 "0" if found assign s8 "893-5772" assign s6 "121 Info Jr. " gosub dial else endif find s0 "1" if found assign s8 "899-0060" assign s6 "Computer Bargain Guide " gosub dial else endif find s0 "2" if found assign s8 "965-3121" assign s6 "Northeastern Exchange " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "3" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "4" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "5" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "6" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit